home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
PHX
/
Install
next >
Wrap
Text File
|
1995-11-24
|
1KB
|
52 lines
(if (= @language "deutsch")
(
(SET Intro "Wilkommen zum Installer-Script für den PHX-Assembler.\nEs werden ca. 700KB Plattenplatz benötigt")
(SET Where "Wohin soll der PHX-Assembler hinkopiert werdem ? Es wird ein Verzeichnis namens PHX angelegt")
(SET AssIn "Es werden nun noch 2 zusätzliche Assigns in s:user-startup eingetragen")
)
)
(if (= @language "english")
(
(SET Intro "Welcome to the installer-script for PHX-Assembler.\nPHX needs about 700KB free disk-space")
(SET Where "Where do you want to place PHX ?")
(SET AssIn "Now 2 assigns will be added to s:user-startup")
)
)
(MESSAGE Intro)
(SET DestDir
(ASKDIR
(PROMPT Where)
(HELP "")
(DEFAULT "sys:")
)
)
(SET BinDest (TACKON DestDir "PHX"))
(RUN (CAT "makedir \""BinDest"\"")) ; Create PHX dir
(COPYFILES
(SOURCE ":Dev/PHX/")
(DEST BinDest)
(ALL)
(INFOS)
)
(STARTUP @app-name
(COMMAND
(CAT "assign c: \""(TACKON BinDest "PHXASS/bin")"\" add \n"
"assign c: \""(TACKON BinDest "PHXLNK")"\" add\n"
)
)
(PROMPT AssIn)
(HELP "")
)
(RUN
(CAT "assign c: \""(TACKON BinDest "PHXASS/bin")"\" add \n"
"assign c: \""(TACKON BinDest "PHXLNK")"\" add\n"
)
)